home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d7
/
apcp38.arc
/
ILCHI.ASP
< prev
next >
Wrap
Text File
|
1991-01-09
|
8KB
|
385 lines
goto init
dial:
strcmp s4 " "
if success
return
endif
isfile s4
if success
return
endif
clear
box 00 00 02 79 n9
atsay 00 08 n9 "╤══════════╤═════════════════════════════╤"
atsay 01 08 n9 "│ │ │"
atsay 02 08 n9 "╧══════════╧═════════════════════════════╧"
atsay 01 02 n8 "ILCHI"
atsay 01 10 n8 s4
atsay 01 21 n8 "Chicago. IL 312 815"
atsay 01 51 n8 s5
locate 05 00
transmit "I^m"
pause 1
transmit "ATZ^m"
waitfor "OK"
transmit "^E^m"
waitfor "READY"
transmit "D"
transmit S4
transmit "^m"
rget s1
rget s1 80 40
rget s1 40 40
rget s1 40 40
mess:
find s1 "BUSY"
if found
strcpy s9 "M"
return
endif
find s1 "ANSWER TONE"
if found
clear
log open s4
alarm 2
exit
endif
find s1 "RINGING"
if found
rget s1
find s1 "RINGING"
if not found
goto mess
else
log open s4
message "APCP: No answer - still ringing"
log close
transmit "^C^D^C"
endif
else
endif
return
top:
find s0 "A"
if found
strcpy s4 "374-5772"
strcpy s5 "Epson "
gosub dial
endif
find s0 "B"
if found
strcpy s4 "490-9206"
strcpy s5 "DEC Rainbow "
gosub dial
endif
find s0 "C"
if found
strcpy s4 "251-7561"
strcpy s5 "RIMS "
gosub dial
endif
find s0 "D"
if found
strcpy s4 "351-6702"
strcpy s5 "The Grand Stand "
gosub dial
endif
find s0 "E"
if found
strcpy s4 "383-3144"
strcpy s5 "PMC Store "
gosub dial
endif
find s0 "F"
if found
strcpy s4 "872-8086"
strcpy s5 "Lakes Region BBS "
gosub dial
endif
find s0 "G"
if found
strcpy s4 "882-4227"
strcpy s5 "IBBS Superboard "
gosub dial
endif
find s0 "H"
if found
strcpy s4 "942-0706"
strcpy s5 "Chicago Computer Society "
gosub dial
endif
find s0 "I"
if found
strcpy s4 "972-0628"
strcpy s5 "Bolingbrook "
gosub dial
endif
find s0 "J"
if found
strcpy s4 "674-1638"
strcpy s5 "William Knopp, Sysop "
gosub dial
endif
find s0 "K"
if found
strcpy s4 "788-1264"
strcpy s5 "Mike Jacobs, Sysop "
gosub dial
endif
find s0 "L"
if found
strcpy s4 "232-1250"
strcpy s5 "Windmill "
gosub dial
endif
find s0 "M"
if found
strcpy s4 "357-3484"
strcpy s5 "Termination Point RBBS "
gosub dial
endif
find s0 "N"
if found
strcpy s4 "448-8290"
strcpy s5 "Lode Data Systems "
gosub dial
endif
find s0 "O"
if found
strcpy s4 "661-0394"
strcpy s5 "The Grinch Tech BBS "
gosub dial
endif
find s0 "P"
if found
strcpy s4 "679-2650"
strcpy s5 "Norcomm RBBS "
gosub dial
endif
find s0 "Q"
if found
strcpy s4 "932-0896"
strcpy s5 "Statewide Micro "
gosub dial
endif
find s0 "R"
if found
strcpy s4 "940-6496"
strcpy s5 "Business-Pro "
gosub dial
endif
find s0 "S"
if found
strcpy s4 "745-8666"
strcpy s5 "Rainbow Computers "
gosub dial
endif
find s0 "T"
if found
strcpy s4 "662-4442"
strcpy s5 "Chicago Syslink "
gosub dial
endif
find s0 "U"
if found
strcpy s4 "276-4159"
strcpy s5 "Ye Olde Archives "
gosub dial
endif
find s0 "V"
if found
strcpy s4 "560-0559"
strcpy s5 "Download Express "
gosub dial
endif
find s0 "W"
if found
strcpy s4 "279-1053"
strcpy s5 "Automated Systems "
gosub dial
endif
find s0 "X"
if found
strcpy s4 "452-0333"
strcpy s5 "Computers Plus "
gosub dial
endif
find s0 "Y"
if found
strcpy s4 "752-7412"
strcpy s5 "Non-Profit Info Center "
gosub dial
endif
find s0 "Z"
if found
strcpy s4 "491-6995"
strcpy s5 "Word Processing "
gosub dial
endif
find s0 "0"
if found
strcpy s4 "729-2101"
strcpy s5 "Biz BBS "
gosub dial
endif
find s0 "1"
if found
strcpy s4 "863-4612"
strcpy s5 "National Public Computers "
gosub dial
endif
find s0 "2"
if found
strcpy s4 "882-4145"
strcpy s5 "PC Information Center "
gosub dial
endif
find s0 "3"
if found
strcpy s4 "724-8874"
strcpy s5 "Phydeaux Fido 615 "
gosub dial
endif
find s0 "4"
if found
strcpy s4 "759-5402"
strcpy s5 "Illini Data "
gosub dial
endif
find s0 "5"
if found
strcpy s4 "799-4434"
strcpy s5 "COLOSSUS "
gosub dial
endif
find s0 "6"
if found
strcpy s4 "974-3112"
strcpy s5 "Date-A-Base "
gosub dial
endif
find s0 "7"
if found
strcpy s4 "725-7586"
strcpy s5 "Software Exchange BBS "
gosub dial
endif
find s0 "8"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "9"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "@"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "#"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "$"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "%"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "&"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "*"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s9 "M"
if found
strcpy s9 " "
goto top
endif
clear
box 00 00 02 79 n9
atsay 01 02 n8 "APCP: All numbers connected / didn't answer ... terminating ..."
locate 05 00
alarm 2
exit
init:
strcpy s9 " "
log close
clear
init n9 07
init n8 07
box 00 00 22 38 n9
box 00 41 22 79 n9
atsay 01 02 n8 "A Epson .................. 374-5772"
atsay 02 02 n8 "B DEC Rainbow ............ 490-9206"
atsay 03 02 n8 "C Risk and Insurance .... 251-7561"
atsay 04 02 n8 "D The Grand Stand......... 351-6702"
atsay 05 02 n8 "E PMC Store .............. 383-3144"
atsay 06 02 n8 "F Lakes Region BBS ....... 872-8086"
atsay 07 02 n8 "G IBBS SuperBoard ........ 882-4227"
atsay 08 02 n8 "H Chicago Computer Soc ... 942-0706"
atsay 09 02 n8 "I Bolingbrook ............ 972-0628"
atsay 10 02 n8 "J William Knopp, Sysop ... 674-1638"
atsay 11 02 n8 "K Mike Jacobs, Sysop ..... 788-1264"
atsay 12 02 n8 "L Windmill ............... 232-1250"
atsay 13 02 n8 "M Termination Point RBBS . 357-3484"
atsay 14 02 n8 "N Lode Data Systems ...... 448-8290"
atsay 15 02 n8 "O The Grinch Tech BBS .... 661-0394"
atsay 16 02 n8 "Norcomm RBBS ............. 679-2650"
atsay 17 02 n8 "R Business-Pro ........... 940-6496"
atsay 18 02 n8 "Q Statewide Micro ........ 932-0896"
atsay 19 02 n8 "S Rainbow Computers ...... 745-8666"
atsay 20 02 n8 "T Chicago Syslink ........ 662-4442"
atsay 21 02 n8 "U Ye Olde Archives ....... 276-4159"
atsay 01 43 n8 "V Download Express ....... 560-0559"
atsay 02 43 n8 "W Automated Systems ...... 279-1053"
atsay 03 43 n8 "X Computers Plus ......... 452-0333"
atsay 04 43 n8 "Y Non-Profit Info Center . 752-7412"
atsay 05 43 n8 "Z Word Processing ........ 491-6995"
atsay 06 43 n8 "0 Biz B.B.S. ............. 729-2101"
atsay 07 43 n8 "1 National Public Comp ... 863-4612"
atsay 08 43 n8 "2 PC Information Center .. 882-4145"
atsay 09 43 n8 "3 Phydeaux Fido 615 ...... 724-8874"
atsay 10 43 n8 "4 Illini Data ............ 759-5402"
atsay 11 43 n8 "5 Colossus ............... 799-4434"
atsay 12 43 n8 "6 Date-A-Base ............ 974-3112"
atsay 13 43 n8 "7 Software Exchange BBS .. 725-7586"
atsay 14 43 n8 "8 ........................ ... ...."
atsay 15 43 n8 "9 ........................ ... ...."
atsay 16 43 n8 "@ ........................ ... ...."
atsay 17 43 n8 "# ........................ ... ...."
atsay 18 43 n8 "$ ........................ ... ...."
atsay 19 43 n8 "% ........................ ... ...."
atsay 20 43 n8 "& ........................ ... ...."
atsay 21 43 n8 "* ........................ ... ...."
locate 23 00
get s0
goto top
return